(set-locale-environment): On MS-Windows use ansi code-page for default

coding-systems.  Set up paper sizes for Windows 3 letter languages.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 0b7aa54a2882f82bb8a7e5c6d4b6d5579802f74c..b8c071b8585a9c59b45a0155cab73caad71b976c 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -2413,6 +2413,16 @@ See also `locale-charset-language-names', `locale-language-names',
          (prefer-coding-system coding-system)
          (setq locale-coding-system coding-system))))
 
+    ;; On Windows, override locale-coding-system, keyboard-coding-system,
+    ;; selection-coding-system with system codepage.
+    (when (boundp w32-ansi-code-page)
+      (let ((code-page-coding (intern (format "cp%d" w32-ansi-code-page))))
+       (when (coding-system-p code-page-coding)
+         (setq locale-coding-system code-page-coding)
+         (set-selection-coding-system code-page-coding)
+         (set-keyboard-coding-system code-page-coding)
+         (set-terminal-coding-system code-page-coding))))
+
     ;; Default to A4 paper if we're not in a C, POSIX or US locale.
     ;; (See comments in Flocale_info.)
     (let ((locale locale)
@@ -2435,7 +2445,11 @@ See also `locale-charset-language-names', `locale-language-names',
                                                ("posix$" . letter)
                                                (".._us" . letter)
                                                (".._pr" . letter)
-                                               (".._ca" . letter)))
+                                               (".._ca" . letter)
+                                               ("enu$" . letter) ; Windows
+                                               ("esu$" . letter)
+                                               ("enc$" . letter)
+                                               ("frc$" . letter)))
                    'a4))))))
   nil)
 \f